home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / submenu / 00355.ls < prev    next >
Encoding:
Text File  |  1995-03-29  |  897 b   |  31 lines
  1. on sinfo sold
  2.   set stuff to []
  3.   add(stuff, the type of sprite sold)
  4.   add(stuff, the locH of sprite sold)
  5.   add(stuff, the locV of sprite sold)
  6.   add(stuff, the castNum of sprite sold)
  7.   add(stuff, the ink of sprite sold)
  8.   add(stuff, the foreColor of sprite sold)
  9.   add(stuff, the blend of sprite sold)
  10.   return stuff
  11. end
  12.  
  13. on sactivate snew, stuff
  14.   puppetSprite(snew, 1)
  15.   set the visible of sprite snew to 1
  16.   if listp(stuff) then
  17.     set the type of sprite snew to getAt(stuff, 1)
  18.     set the locH of sprite snew to getAt(stuff, 2)
  19.     set the locV of sprite snew to getAt(stuff, 3)
  20.     set the castNum of sprite snew to getAt(stuff, 4)
  21.     set the ink of sprite snew to getAt(stuff, 5)
  22.     set the foreColor of sprite snew to getAt(stuff, 6)
  23.     set the blend of sprite snew to getAt(stuff, 7)
  24.   end if
  25. end
  26.  
  27. on movechan sold, snew
  28.   sactivate(snew, sinfo(sold))
  29.   puppetSprite(sold, 0)
  30. end
  31.